home *** CD-ROM | disk | FTP | other *** search
/ ftp.mactech.com 2010 / ftp.mactech.com.tar / ftp.mactech.com / thinkref / archive / THINKPascalUH2.1.sea / THINKPas Univ Hdr 2.1 / Interfaces / CursorDevices.p < prev    next >
Text File  |  1995-09-12  |  7KB  |  197 lines
  1. { Converted with MPW2TPas Tuesday, September 12, 1995 5:46:05 PM }
  2. {
  3.      File:        CursorDevices.p
  4.  
  5.      Contains:    Cursor Devices (mouse/trackball/etc) Interfaces.
  6.  
  7.      Version:    Technology:    System 7.5
  8.                  Package:    Universal Interfaces 2.1 in “MPW Latest” on ETO #18
  9.  
  10.      Copyright:    © 1984-1995 by Apple Computer, Inc.
  11.                  All rights reserved.
  12.  
  13.      Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  14.                  stack.  Include the file and version information (from above)
  15.                  in the problem description and send to:
  16.                      Internet:    apple.bugs@applelink.apple.com
  17.                      AppleLink:    APPLE.BUGS
  18.  
  19. }
  20.  
  21.  UNIT CursorDevices;
  22.  INTERFACE
  23.  
  24.  
  25. {$IFC UNDEFINED __CURSORDEVICES__}
  26. {$SETC __CURSORDEVICES__ := 1}
  27.  
  28.   USES
  29.    ConditionalMacros, Types, MixedMode;
  30.  
  31. { $PUSH}
  32. { $ALIGN MAC68K}
  33. { $LibExport+}
  34. {
  35.                        * * *  W A R N I N G  * * * 
  36.  
  37.     On currently shipping PowerMacs, the CursorDevices manager is implemented
  38.     in 68K code and emulated.  Unfortunately, the MixedMode glue in InterfaceLib
  39.     is incorrect.  It and the 1.0 version of this file had incorrect parameter
  40.     lists for most functions.
  41.     
  42.     As a first step to avoid runtime errors, the functions in this file were 
  43.     renamed (e.g. from"CrsrDevButtons" to "CursorDeviceButtons").  This will result
  44.     in a link time error if a PowerPC application tries to call the functions.
  45.     When InterfaceLib is fixed, the new names will be exported and PowerPC
  46.     code will then be able to call them.
  47.     
  48. }
  49.     
  50. TYPE
  51.     ButtonOpcode = INTEGER;
  52.  
  53. { ButtonOpcodes }
  54.  
  55. CONST
  56.     kButtonNoOp                    = 0;                            { No action for this button }
  57.     kButtonSingleClick            = 1;                            { Normal mouse button }
  58.     kButtonDoubleClick            = 2;                            { Click-release-click when pressed }
  59.     kButtonClickLock            = 3;                            { Click on press, release on next press }
  60.     kButtonCustom                = 6;                            { Custom behavior, data = CursorDeviceCustomButtonUPP }
  61.  
  62. { Device Classes }
  63.     kDeviceClassAbsolute        = 0;                            { a flat-response device }
  64.     kDeviceClassMouse            = 1;                            { mechanical or optical mouse }
  65.     kDeviceClassTrackball        = 2;                            { trackball }
  66.     kDeviceClass3D                = 6;                            { a 3D pointing device }
  67.  
  68. { Structures used in Cursor Device Manager calls }
  69.  
  70. TYPE
  71.     CursorData = RECORD
  72.         nextCursorData:            ^CursorData;                            { next in global list }
  73.         displayInfo:            Ptr;                                    { unused (reserved for future) }
  74.         whereX:                    Fixed;                                    { horizontal position }
  75.         whereY:                    Fixed;                                    { vertical position }
  76.         where:                    Point;                                    { the pixel position }
  77.         isAbs:                    BOOLEAN;                                { has been stuffed with absolute coords }
  78.         buttonCount:            SInt8; { UInt8 }                        { number of buttons currently pressed }
  79.         screenRes:                INTEGER;                                { pixels per inch on the current display }
  80.         privateFields:            ARRAY [0..21] OF INTEGER;                { fields use internally by CDM }
  81.     END;
  82.  
  83.     CursorDataPtr = ^CursorData;
  84.  
  85.     CursorDevice = RECORD
  86.         nextCursorDevice:        ^CursorDevice;                            { pointer to next record in linked list }
  87.         whichCursor:            ^CursorData;                            { pointer to data for target cursor }
  88.         refCon:                    LONGINT;                                { application-defined }
  89.         unused:                    LONGINT;                                { reserved for future }
  90.         devID:                    OSType;                                    { device identifier (from ADB reg 1) }
  91.         resolution:                Fixed;                                    { units/inch (orig. from ADB reg 1) }
  92.         devClass:                SInt8; { UInt8 }                        { device class (from ADB reg 1) }
  93.         cntButtons:                SInt8; { UInt8 }                        { number of buttons (from ADB reg 1) }
  94.         filler1:                SInt8; { UInt8 }                        { reserved for future }
  95.         buttons:                SInt8; { UInt8 }                        { state of all buttons }
  96.         buttonOp:                ARRAY [0..7] OF SInt8; { UInt8 }        { action performed per button }
  97.         buttonTicks:            ARRAY [0..7] OF LONGINT;                { ticks when button last went up (for debounce) }
  98.         buttonData:                ARRAY [0..7] OF LONGINT;                { data for the button operation }
  99.         doubleClickTime:        LONGINT;                                { device-specific double click speed }
  100.         acceleration:            Fixed;                                    { current acceleration }
  101.         privateFields:            ARRAY [0..14] OF INTEGER;                { fields used internally to CDM }
  102.     END;
  103.  
  104.     CursorDevicePtr = ^CursorDevice;
  105.  
  106. { for use with CursorDeviceButtonOp when opcode = kButtonCustom }
  107.     {
  108.         CursorDeviceCustomButtonProcPtr uses register based parameters on the 68k and cannot
  109.         be written in or called from a high-level language without the help of
  110.         mixed mode or assembly glue.
  111.  
  112.         In:
  113.          => ourDevice       A2.L
  114.          => button          D3.W
  115.     }
  116.     CursorDeviceCustomButtonProcPtr = Register68kProcPtr;  { register PROCEDURE CursorDeviceCustomButton(ourDevice: CursorDevicePtr; button: INTEGER); }
  117.     CursorDeviceCustomButtonUPP = UniversalProcPtr;
  118.  
  119. CONST
  120.     uppCursorDeviceCustomButtonProcInfo = $000ED802; { Register PROCEDURE (4 bytes in A2, 2 bytes in D3); }
  121.  
  122. FUNCTION NewCursorDeviceCustomButtonProc(userRoutine: CursorDeviceCustomButtonProcPtr): CursorDeviceCustomButtonUPP;
  123.     {$IFC NOT GENERATINGCFM }
  124.     INLINE $2E9F;
  125.     {$ENDC}
  126.  
  127. PROCEDURE CallCursorDeviceCustomButtonProc(ourDevice: CursorDevicePtr; button: INTEGER; userRoutine: CursorDeviceCustomButtonUPP);
  128.     {$IFC NOT GENERATINGCFM}
  129.     {To be implemented:  Glue to move parameters into registers.}
  130.     {$ENDC}
  131.  
  132. FUNCTION CursorDeviceMove(ourDevice: CursorDevicePtr; deltaX: LONGINT; deltaY: LONGINT): OSErr;
  133.     {$IFC NOT GENERATINGCFM}
  134.     INLINE $7000, $AADB;
  135.     {$ENDC}
  136. FUNCTION CursorDeviceMoveTo(ourDevice: CursorDevicePtr; absX: LONGINT; absY: LONGINT): OSErr;
  137.     {$IFC NOT GENERATINGCFM}
  138.     INLINE $7001, $AADB;
  139.     {$ENDC}
  140. FUNCTION CursorDeviceFlush(ourDevice: CursorDevicePtr): OSErr;
  141.     {$IFC NOT GENERATINGCFM}
  142.     INLINE $7002, $AADB;
  143.     {$ENDC}
  144. FUNCTION CursorDeviceButtons(ourDevice: CursorDevicePtr; buttons: INTEGER): OSErr;
  145.     {$IFC NOT GENERATINGCFM}
  146.     INLINE $7003, $AADB;
  147.     {$ENDC}
  148. FUNCTION CursorDeviceButtonDown(ourDevice: CursorDevicePtr): OSErr;
  149.     {$IFC NOT GENERATINGCFM}
  150.     INLINE $7004, $AADB;
  151.     {$ENDC}
  152. FUNCTION CursorDeviceButtonUp(ourDevice: CursorDevicePtr): OSErr;
  153.     {$IFC NOT GENERATINGCFM}
  154.     INLINE $7005, $AADB;
  155.     {$ENDC}
  156. FUNCTION CursorDeviceButtonOp(ourDevice: CursorDevicePtr; buttonNumber: INTEGER; opcode: ButtonOpcode; data: LONGINT): OSErr;
  157.     {$IFC NOT GENERATINGCFM}
  158.     INLINE $7006, $AADB;
  159.     {$ENDC}
  160. FUNCTION CursorDeviceSetButtons(ourDevice: CursorDevicePtr; numberOfButtons: INTEGER): OSErr;
  161.     {$IFC NOT GENERATINGCFM}
  162.     INLINE $7007, $AADB;
  163.     {$ENDC}
  164. FUNCTION CursorDeviceSetAcceleration(ourDevice: CursorDevicePtr; acceleration: Fixed): OSErr;
  165.     {$IFC NOT GENERATINGCFM}
  166.     INLINE $7008, $AADB;
  167.     {$ENDC}
  168. FUNCTION CursorDeviceDoubleTime(ourDevice: CursorDevicePtr; durationTicks: LONGINT): OSErr;
  169.     {$IFC NOT GENERATINGCFM}
  170.     INLINE $7009, $AADB;
  171.     {$ENDC}
  172. FUNCTION CursorDeviceUnitsPerInch(ourDevice: CursorDevicePtr; resolution: Fixed): OSErr;
  173.     {$IFC NOT GENERATINGCFM}
  174.     INLINE $700A, $AADB;
  175.     {$ENDC}
  176. FUNCTION CursorDeviceNextDevice(VAR ourDevice: CursorDevicePtr): OSErr;
  177.     {$IFC NOT GENERATINGCFM}
  178.     INLINE $700B, $AADB;
  179.     {$ENDC}
  180. FUNCTION CursorDeviceNewDevice(VAR ourDevice: CursorDevicePtr): OSErr;
  181.     {$IFC NOT GENERATINGCFM}
  182.     INLINE $700C, $AADB;
  183.     {$ENDC}
  184. FUNCTION CursorDeviceDisposeDevice(ourDevice: CursorDevicePtr): OSErr;
  185.     {$IFC NOT GENERATINGCFM}
  186.     INLINE $700D, $AADB;
  187.     {$ENDC}
  188.  
  189. { $ALIGN RESET}
  190. { $POP}
  191.  
  192. {$ENDC} {__CURSORDEVICES__}
  193.  
  194.  IMPLEMENTATION
  195.  END.
  196.  
  197.